home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / makeboot / makeboot.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  4.5 KB  |  92 lines
  1.   file$="makeboot" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gi00 0145ga 0003e9 ga0001 454e54 ffe242 3008ff f8
  42. 2     DATA 2a4870 06204c 42a051 c8fffc 426043 f9ga00 042870 002c78 00044e 05
  43. 3     DATA aefdd8 2940ff fc6700 012820 3cga00 080022 3c0001 00022c 780004 48
  44. 4     DATA 4eaeff 3a2940 fff067 00010c 204041 e80400 2948ff e4204d 610001 b0
  45. 5     DATA 6a2008 66ga00 f27022 91c861 000222 2940ff f867ga 00e670 30206c 25
  46. 6     DATA fff861 0002ce 2940ff f467ga 00d441 fa035e 705222 005380 246cff bc
  47. 7     DATA f014d8 51c8ff fc243c ga0004 009481 222cff e42c6c fffc4e aeff6a f7
  48. 8     DATA 2940ff ec6610 41fa03 93202c ffe461 000192 60ga00 96d080 d08020 fc
  49. 9     DATA 404a90 66ga00 7aga20 b08262 785088 538014 d851c8 fffc20 6cfff0 95
  50. 10    DATA 224832 3c00ff 7000d0 986402 528051 c9fff8 206cff f05888 919064 36
  51. 11    DATA 025390 41fa03 34202c ffe822 6cfff4 72002c 780004 4eaefe 444a80 83
  52. 12    DATA 670e41 fa033f 202cff e86100 012a60 2e50ec ffe270 016100 026261 6f
  53. 13    DATA 000276 660870 006100 025660 1641fa 033560 0c41fa 035860 0641fa 64
  54. 14    DATA 036d22 0261ga 00fa4a 2cffe2 670c22 6cfff4 2c7800 044eae fe3e20 cc
  55. 15    DATA 6cfff4 610002 12206c fff861 000192 222cff ec6708 2c6cff fc4eae 54
  56. 16    DATA ff6420 2cfff0 671022 40203c ga0008 002c78 00044e aeff2e 202cff f5
  57. 17    DATA fc670a 22402c 780004 4eaefe 624e5c 4e7510 1867ga 0cga00 2067f6 41
  58. 18    DATA 0cga00 0967f0 53884e 7561ea 676872 ga226c ffe410 18675e b00166 9c
  59. 19    DATA ga1018 671cb0 016718 12c060 f41018 67100c ga0020 670a0c ga0009 a2
  60. 20    DATA 670412 c060ec 421161 b61018 673861 3c0cga 004466 301018 672c61 6d
  61. 21    DATA 300cga 004666 247000 101867 1e04ga 00300c ga0003 621429 40ffe8 5f
  62. 22    DATA 0c1000 3a660a 91c84e 7541fa 02a24e 7541fa 02af4e 750cga 006165 1d
  63. 23    DATA 0a0cga 007a62 ga04ga 00204e 7548e7 fff022 4f45fa 003026 6cfff0 1c
  64. 24    DATA 2c7800 044eae fdf62c 6cfffc 4eaeff c42200 671424 0b4a1b 66fc53 fc
  65. 25    DATA 4b260b 96824e aeffd0 4cdf0f ff4e75 16c04e 7548e7 ga3026 002648 f5
  66. 26    DATA 220867 084a18 66fc91 c1d088 588024 00223c 000100 012c78 00044e e3
  67. 27    DATA aeff3a 24404a 8067ga 008a24 c270ff 4eaefe b61540 000f6b 6c93c9 77
  68. 28    DATA 4eaefe da2540 001015 7c0004 000842 2a000e 200b67 1641f2 380025 39
  69. 29    DATA 48000a 10db66 fc224a 4eaefe 9e200a 604c41 ea0014 208858 9042a8 8a
  70. 30    DATA 000421 480008 200a60 3848e7 ga3020 086730 24484a aa000a 670a22 f1
  71. 31    DATA 4a2c78 00044e aefe98 700010 2a000f 6b082c 780004 4eaefe b020ga fc
  72. 32    DATA 224a2c 780004 4eaeff 2e7000 4cdfga 0c2040 4e7548 e7ga20 244858 cf
  73. 33    DATA 802400 223c00 010001 2c7800 044eae ff3a20 404a80 671420 c2214a 0e
  74. 34    DATA 000e11 7c0005 000859 823142 001220 084cdf ga044e 752008 670c22 00
  75. 35    DATA 482021 2c7800 044eae ff2e4e 75226c fff423 400024 337c00 09001c 90
  76. 36    DATA 2c7800 044eae fe384e 75226c fff442 a9002c 237cga 0004ga 002423 e1
  77. 37    DATA 6cfff0 002833 7c0003 001c24 492c78 00044e aefe38 4a8066 0e224a a0
  78. 38    DATA 337c00 04001c 4eaefe 384a80 4e7544 4f53gf 000370 48e7ff fe42a9 fe
  79. 39    DATA 002433 7c0009 001c2c 780004 4eaefe 384cd7 7fff61 2a4cdf 7fff43 f3
  80. 40    DATA fa0018 4eaeff a04a80 670a20 402068 001670 004e75 70ff4e 75646f 13
  81. 41    DATA 732e6c 696272 617279 007472 61636b 646973 6b2e64 657669 636500 4e
  82. 42    DATA 45ga72 6f7220 6c6f61 64696e 672022 257322 0a0055 6e6162 6c6520 23
  83. 43    DATA 746f20 6f7065 6e2075 6e6974 206466 256c64 3a0a00 436f75 6c6420 75
  84. 44    DATA 6e6f74 207772 697465 2062ga 6f7420 626c6f 636b20 2d2065 ga726f 8c
  85. 45    DATA 722025 6c642e 0a004f 6e6c79 206f6e 652073 65676d 656e74 2061ga e6
  86. 46    DATA 6c6f77 65642e 0a004c 656e67 746820 256c64 202873 706163 652025 49
  87. 47    DATA 6c6429 2e0a00 65ga72 6f7220 696e20 66696c 656e61 6d650a 006769 97
  88. 48    DATA 766520 646573 74696e 617469 6f6e20 647269 766520 64664e 3a2077 c4
  89. 49    DATA 686572 65204e 206973 2030gb 2e330a gc0003 ecgb00 01gf00 18ge00 63
  90. 50    DATA 03f2dd
  91.       DATA **
  92.